home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / pwfax.zip / EXIT.WAS next >
Text File  |  1992-08-15  |  432b  |  17 lines
  1. #define FAX "faxmng.exe"  ; receive Fax software (need path if not in PATH)
  2. proc main
  3. integer ans
  4. string str
  5.    if $CARRIER
  6.       sdlgmsgbox "Confirm Exit?" "Still CONNECTed, OK to Exit?" \
  7.          QUESTION YESNO ans 2 BEEP
  8.       switch ans
  9.          case 7
  10.             exit
  11.          endcase
  12.       endswitch
  13.    endif
  14.    run FAX MINIMIZED   ; startup Fax program
  15.    closepw   ; close Procomm Plus for Windows
  16. endproc
  17.